home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / disktools / dirsize / install_dirsize < prev    next >
Text File  |  1996-08-02  |  2KB  |  95 lines
  1. ; DirSize 1.4 Installer script.
  2. ; $VER: Install_DirSize 1.4 (2.8.96)
  3. ;
  4. ; Copyright (c) 1995-1996 Steve Robb
  5. ;
  6.  
  7. (set vernum (getversion "DirSize"))
  8. (set ver (/ vernum 65536))
  9. (set rev (- vernum (* ver 65536)))
  10.  
  11. (set #welcome
  12.     (cat ("Welcome to the installation script for DirSize %ld.%ld\n\n" ver rev)
  13.         "DirSize is a Shell-only command.\n A Workbench version will appear at a later date.\n\n"
  14.         "Copyright (c) 1995-1996 Steve Robb"
  15.     )
  16. )
  17. (set #destdir-prompt "Please select the directory where you want the DirSize executable installed.\nNo directory will be created.")
  18. (set #destdir-help
  19.     (cat
  20.         "Select the location of where you want the executable DirSize to be copied."
  21.         "The 'C:' directory, where most Shell commands are placed, is a recommendable location.\n\n"
  22.         @askdir-help
  23.     )
  24. )
  25. (set #docs-prompt "Would you like to install the documentation?")
  26. (set #docs-help "Documentation is provided in AmigaGuide® format only.")
  27. (set #docs_dir-prompt "Please select the directory where you want the AmigaGuide® documentation installed.")
  28. (set #docs_dir-help
  29.     (cat
  30.         "Select the locatation of where you want the AmigaGuide® documentation for DirSize to be installed.\n\n"
  31.         @askdir-help
  32.     )
  33. )
  34.  
  35. (set #installing "Installing ")
  36. (set #nohelp "No help available")
  37.  
  38. (set #default-dest "C:")
  39.  
  40.  
  41. (complete 0)
  42.  
  43. (message #welcome)
  44.  
  45. ;
  46. ;   Install executable
  47. ;
  48. (set defdir
  49.     (askdir
  50.         (prompt #destdir-prompt)
  51.         (help #destdir-help)
  52.         (default #default-dest)
  53.     )
  54. )
  55. (set @default-dest defdir)
  56.  
  57. (copylib
  58.     (source "DirSize")
  59.     (dest @default-dest)
  60.     (prompt (cat #installing "DirSize executable"))
  61.     (help #nohelp)
  62.     (confirm)
  63.     (optional force askuser)
  64. )
  65.  
  66. ;
  67. ;   Install documentation
  68. ;
  69. (if ( = (askbool (prompt #docs-prompt) (help #docs-help) (default 0) ) 1 )
  70.     (
  71.         (set #docsdir
  72.             (askdir
  73.                 (prompt #docs_dir-prompt)
  74.                 (help #docs_dir-help)
  75.                 (default "")
  76.                 (disk)
  77.             )
  78.         )
  79.         (message docsdir)
  80.         (copylib
  81.             (source "DirSize.guide")
  82.             (dest #docsdir)
  83.             (prompt (cat #installing "DirSize.guide"))
  84.             (help #nohelp)
  85.             (confirm)
  86.             (infos)
  87.             (noposition)
  88.             (optional force askuser)
  89.         )
  90.     )
  91. )
  92.  
  93. (complete 100)
  94.  
  95.